The World's Largest Collection of Windows Software/The World's Largest Collection of Windows Software - Disc 2.iso/textproc/tlcspell/speller.fo_/speller.fo

Text File | 1993-12-04 | 3KB | 121 lines

VERSION 2.00
Begin Form FrmDoc
   Caption         =   "Speller"
   ClientHeight    =   2484
   ClientLeft      =   360
   ClientTop       =   1944
   ClientWidth     =   5508
   Height          =   3228
   Icon            =   SPELLER.FRX:0000
   Left            =   312
   LinkTopic       =   "Form1"
   ScaleHeight     =   2484
   ScaleWidth      =   5508
   Top             =   1248
   Width           =   5604
   Begin TextBox Text1
      Height          =   2388
      HideSelection   =   0   'False
      Left            =   36
      MultiLine       =   -1  'True
      ScrollBars      =   3  'Both
      TabIndex        =   0
      Top             =   36
      Width           =   5340
   End
   Begin Menu MnuFile
      Caption         =   "&File"
      Begin Menu MnuOpen
         Caption         =   "&Open"
      End
      Begin Menu MnuCheck
         Caption         =   "&Check"
      End
      Begin Menu MnuNext
         Caption         =   "&Next Page"
      End
      Begin Menu MnuSave
         Caption         =   "&Save"
      End
      Begin Menu ctrl0
         Caption         =   "-"
      End
      Begin Menu MnuExit
         Caption         =   "E&xit"
      End
   End
   Begin Menu MnuHelp
      Caption         =   "&Help"
      Begin Menu MnuAbout
         Caption         =   "&About"
      End
      Begin Menu MnuHHelp
         Caption         =   "&HelpFile"
      End
   End
End
Option Explicit

Sub Form_Load ()
    Width = screen.Width * .8
    Height = screen.Height * .8
End Sub

Sub Form_Resize ()
   Text1.Width = ScaleWidth
   Text1.Height = Scaleheight
End Sub

Sub MnuAbout_Click ()
   FrmAbout.Show
End Sub

Sub MnuCheck_Click ()
   On Error Resume Next
   FrmChk.Show
End Sub

Sub MnuExit_Click ()
    End
End Sub

Sub MnuHHelp_Click ()
     FrmAbout!CmnDialog.HelpFile = App.HelpFile
     FrmAbout!CmnDialog.HelpContext = 200
     FrmAbout!CmnDialog.HelpCommand = HELP_CONTEXT
     FrmAbout!CmnDialog.Action = 6


End Sub

Sub MnuNext_Click ()
  MsgBox "Not currently implemented"
End Sub

Sub MnuOpen_Click ()
   Dim i As Integer

   i = GetFileName(1, DataFile)
   If i > 0 Then
     spage = 1
     ReadFile (DataFile)
   End If
End Sub

Sub MnuSave_Click ()
  Dim fn As Integer
  If spage < 20000 Then
     fn = FreeFile
     Open DataFile For Output As #fn
     Print #fn, FrmDoc!Text1
     Close
   Else
     MsgBox "Saving a file larger than 1 page is not implemented"
  End If
End Sub

Sub Text1_Click ()
      LastCk = Text1.SelStart
End Sub